home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 014 / fc.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  578 b   |  24 lines
  1. 10  INPUT "ENTER ORIGINAL FILE NAME-",IF1$:OPEN IF1$ FOR INPUT  AS 1
  2. 20  INPUT "ENTER MODIFIED FILE NAME-",IF2$:OPEN IF2$ FOR INPUT  AS 2
  3. 30  INPUT "ENTER   CHANGE FILE NAME-",OF$: OPEN OF$  FOR OUTPUT AS 3
  4. 40  GOSUB 500:GOSUB 700
  5. 50  IF N1=N2 THEN IF L1$=L2$ THEN 40 ELSE PRINT #3,L2$:GOTO 40
  6. 60  IF N1>N2 THEN PRINT #3,L2$: GOSUB 700: GOTO 50
  7. 70  PRINT #3,N1
  8. 80  GOSUB 500: GOTO 50
  9. 500  IF EOF(1) THEN 600
  10. 510  LINE INPUT #1,L1$: N1=VAL(L1$): RETURN
  11. 600  IF NOT EOF(2) THEN PRINT #3,L2$
  12. 610  WHILE NOT EOF(2)
  13. 620  LINE INPUT #2,L2$:PRINT #3,L2$
  14. 630  WEND
  15. 640  GOTO 900
  16. 700  IF EOF(2) THEN 800
  17. 710  LINE INPUT #2,L2$: N2=VAL(L2$): RETURN
  18. 800  PRINT #3,N1
  19. 810  WHILE NOT EOF(1)
  20. 820  LINE INPUT #1,L1$: N2=VAL(L1$):PRINT #3,N1
  21. 830  WEND
  22. 900  CLOSE:PRINT "END OF SCAN"
  23. 910  END
  24.